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'e COPYRIGHT (c) 1978 1980. 1982, 1984 BY 

'® DIGITAL Fe ace nve CORPORAT TION, MAYNARD, MASSACHUSETTS. 

i. ALL RIGHTS RESERVE 

is ire a. 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'# INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


. 0 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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i FACILITY: EDT == The DEC Standard Editor 
i ABSTRACT: 


Read a text record from the journal file. ALl other records are 
processed in this module. 


i ENVIRONMENT: Runs at any access mode - AST reentrant 
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' 
1 
1 
! 
1 
' 
i] 
1 
004 ! 
ape AUTHOR: John Sauter, CREATION DATE: June 22, 1981 
094 MODIFIED BY: 
045 ! 1- “9 - Original. JBS 22-Jun-1981 
ah ! 1-002 - cagnee, 50 the format of the Journal file to make it compatible 
04 ! v2.0. JBS 07-Jul-1 
048 ! 1-003 - Fix the” aonule name and title. JBS 07-Aug-1981 
049 ! 1-004 - Read from the journal ile, not afte. comaand file. JBS 16-Aug-1981 
Bet ! 1-005 = Handle control C records. oe 
051 ! 1- $ = Debug control C pores handl "ti # Rare -1981 
26 ! 1- - Revise control C Cote names. JBS 29-Dec-1 
5 ! 1- 3 - Use two words for rol C c¢ enrers 
54 ! 1- - Convert to use EDT Pate 10. ‘s 1 BEA 
55 ! 1-010 = Pass RHB descriptor to fileio. sts Pd A 
B28 ! 1-011 = Deallocate dynamic descriptors. S$ $40 -Feb-1982 
5 ! 1-012 - Add Literals for callable EDT. sf 10-Mar-198 


14-Sep-1984 EDT. SRCJREAJOUTEX.BLI; 
ZTITLE ‘EDTSREAJOUTEX = read a text record from the journal file’ 
MODULE EDTSREAJOUTEX ! Read a text record from the journal file 
pOEnt = 'v04-000' ! File: REAJOUTEX.BLI dit: JBS1015 
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3 H ' - Remove reference to EDTSSAD IfI. 185, J3-Her-1982 

3 i] - = Allow Or Length record JBS 01-Ap 

$ ? | ii 13 13 - nstead o a ¢ numbers when journaling control C. 
1 . 
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1 ZSBTTL ‘EDTSSRD_JOUTXT = read a text record from the journal file’ | 


S 


ER} 


IMPLICIT INPUTS: 


GLOBAL ROUTINE EDTSSRD_JOUTXT (¢ ! Read a text record from the journal file 
1 INPUT BUFFER, ! Address of input buffer 
: pMPUT BUFFER LER ! Length of record read 
= 
1 
15 
9 
H Read records from the journal file until we find a text record. Return that 
1 record to fhe caller. The other kind of record, the control C record, is 
processed in this routine by storing its value in EDT $G_CC_CNT2. 
§ FORMAL PARAMETERS: 
4 INPUT_BUFFER The address of the input buffer. The text record is 
5 stored in this buffer. 
$ 8 INPUT _BUFFER_LEN The Length of the text record read is stored here. 
2 
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1 tee 
5 } FUNCTIONAL DESCRIPTION: 
; | 
8 1 
1 
Q 1 
eS 
¢ 1 
1 
4 1 
5 1 
8 1 
1 
8 1 
, 
0 1 EDTS$$G_CC_CAT1_LO 
a: 3 EDTS$G_CC_CNT1_HI 
; 1 EDT$$G_CC_CNT2_LO 
8 1 EDT$$G_CC_CNT2_HI] 
; : EDTS$G_CC_FLAG 

, $ : IMPLICIT OUTPUTS: 

9 8 1 EDT$$G_CC_CNT1_LO 
40 0739 #1 EDTS$G_CC_CNT1_HI 
41 Bree 1 ED Tssc_ce_tntg to 
rs | 741 «#1 EDTS$G_CC_CNT2_HI 
4 07 ; 1 EDTS$G_CC_FLAG 
44 of 1 
$? f 3 : ROUTINE VALUE: 
¢f OF $ : 1 = text record read, 0 = error from reading file 
49 oF 8 1 ! SIDE EFFECTS: 

50 749 «1 

51 750 1 NONE 
26 751 #1 

5 236 1 !e- 

54 753 (1 

55 754 BEGIN 
2$ 755 
5 238 cavemen, ROUTINE 
38 75 EDTSSCALLF 10; 

F 758 | 
60 t 0759 ZIF ZBLISS (BLISS32) 

61 760 THEN 

6¢ 761 

6 166 eateoms, ROUTINE 
64 076 STRSFREE1_DX; 
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: BLOCK {8 eyTE 
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BUF FER_LEN; 
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LOCAL 


JOURNAL _FILE, FILE_DESC, RHB_DESC); 
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. INPUT_FILE_STATUS); 
(.LOCAL_INPUT_BUFFER [0] NEQ JOU_REC_ESC) 


THEN 


$ 
$ 
RETURN ( 
BEGIN 
ASSERT (.L 
CHSMOVE (. 
- INPUT_BUF 
RETURN (. INPUT 
ELSE 
BEGIN 
This must be a control C record. 


BEGIN 
We have a text record, move the record to the caller's buffer and return. 
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EDTSREAJOUTEX EDTSREAJOUTEX = read a text record from the jo 18-50 Sep-19 AX-11 Bliss-32 V4.0-74 Pp 7 
04-000 EDTSSRD_JOUTXT - read a text record from end } 1 730071382 93: gi: 6 EDT. SRCJREAJOUTEX.BLI; to (3) 
: 78 4 ND; 

; 3 - 

3 1 END 
: § 1 ELSE 
3 ¢ § No more records in the journal file, return failure. 
: 5 4 BEGIN 
: 44 $ 4 A (. INPUT_FILE_STATUS); 
: 289 : y 
; 290 ENB 
; 291 UNTIL 0; 
3 4 91 
: 3 tk i*e trol t h thi int 
:  $8¢ Ba3z ‘. ontrol cannot reac 3 point. 
3 4 0895 ASSERT (0); 
:; 2 9536 RETURN (0): 
; 298 089 END; ! of routine EDTSS$RD_JOUTXT 


-TITLE EDTSREAJOUTEX EDTSREAJOUTEX - read a text recor 
H d from the jou 
-IDENT \V04-000\ 


TSK_GET, EDT$K_JOURNAL_FILE 
SSCALLFIO. STASFREET_ Bx 


TI7AL 


-PSECT sien cont SHR, PIC,2 
OFFC 00000 -ENTRY EDTSSRD_JOUTXT, Save R2,R3,R4,R5,R6,R7,R8,- 


02 MOVAB EDF S$0_CC_CNTZ_HI HI, R11 
CNT R10 


0709 


eBarrmDiua 


08 ae OS0E00 


CALL £19 
PUT FILE.S TUS 
ESC#4, FOCAL INPUT BUFF 
ESC, LOCAL_IAPUT_BOFFER 
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EDTSREAJOUTEX DTSREAJOUTEX = read a text record from the jou 16-Sep-1984 2:27:14 AX-11 Bliss-32 V4.0-74 
- .JOUTXT = read a text record from the -Sep- 724: DT. REAJOUTEX.BLI; 
04 B50 DT$$RD_JOUTXT d d f 2 : 138 9} $7 3 fe T gre} EAJOUTE 
35 B BLBC NPUT_FILE_STATUS, 5$ 
a8 §3 $082 gueg | AgPur.rive. 
08 BC p4 cLRL @INPUT_BUFFER_LEN 
FF OF i 4 6 2s: CPB (LOCAL_INPUT_BUFFER), #255 
00000100 = 8F f D 68 cHPL OCAL_INPUT_BUFFER_LEN, #256 
69 09 EB 74 CALLS #0, EDTSSINTER_ERR 
04 BC ry 2 77 3$ MOVC3 LOCAL_INPUT_BUFFER_LEN, - 
(LOCAC_INPUT_ BUFFER), @INPUT BUFFER 
08 Bc 57 po 007 MOVL _- LOCAL_TNPUT_BUFFER_LEN, @INPOT_BUFFER_LEN 
08 AE F 4$ PUSHAB FILE DESC 
000000006 00 9 FB 000 CALLS #1, STRSFREE1_Dx 
E oD Bae PUSHL SP 
000000006 00 oi FB 000 CALLS #1, STRSFREE1_DX 
8 11 00093 S$: BRB 18$ 
01 01 Ag 91 009 6$: CMPB =s-:«A(LOCAL_INPUT_BUFFER), #1 
03 13 00099 BEQL «6 7$ 
69 00 FB 00098 CALLS #0, EDTSSINTER_ERR 
06 D1 OO9E 7$: CMPL LOCAL_INPUT BUFFER_LEN, #6 
03 13 000A BEQL 
69 8 F 00A3 CALLS #0 DTSSINTER_ERR 
000000006 : D5 OO0A6 8S TSTL Df$$G_CC_CNT1~LO 
03 13 OOOAC BEQL 
9 00 FB OOOAE CALLS #0 EDTSSINTER_ERR 
000000006 09 D5 00081 9$: TSTL EDT$$G_CC_CNT1_HI 
03 13 00087 BEQL $ 
69 00 F 90089 CALLS #0, EDTSSINTER_ERR 
6A 05 O00BC 10$:  TSTL EDT$$G_CC_CNT27LO 
03 13 0008 BEQL 
69 00 F 900¢ CALLS #0 EDTSSINTER_ERR 
6B 05 000C3 118:  TSTL EDT$$G_CC_CNT2-HI 
03 13 000C¢ BEQL 12$ 
69 00 FB 000C CALLS #0, EDTS$SINTER_ERR 
000000006 09 DS OOOCA 128:  TSTL EDT$$G_CC_FLAG 
0 13 00000 BEQL 13$ 
69 0 F o002 CALLS #0, EDTSSINTER_ERR 
6A 02 A6 BO 00005 13s MOVW § 2(LOCAL_INPUT_BUFFER), EDT$$G_CC_CNT2 LO 
6B 04 A6 BO 00009 MOVW 4(LOCAL~INPUT~BUFFER). EDT$$G~CC~CNT2_HI 
6A D5 0000D TSTL  EDT$$G_CC_CNT2_LO 
03 18 O00 BGEG «-*14$ 
69 00 FB 000E1 CALLS #0, EDT$SINTER_ERR 
00007530 &F A D} E4 14$: CMPL Epis G_CC_CNT2-L0, #30000 
; 5 000EB LEG $ 
69 F E CALLS #0, EDTSSINTER_ERR 
D5 OOOFO 15$ STL Fpts G_CC_CNT2-HI 
1 F GEG 6s 
69 FB OOOF CALLS DISSINTER_ERR 
00007530 «BF : D} a 16$ CHL Epis G_CC_CNT2-HI, #30000 
69 0 FB 001 CALLS #0, EDTS$SINTER_ERR 
000000006 00 a 1 p ; 17$: HOVL #1, EDTS$G_CC_FLAG 
50 3 B0 1 p 18$: MOVL INPUT_FILE_STATUS, RO 
4 001 RET 
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; Routine Size: 273 bytes, Routine Base: _EDTSCODE + 0000 


: $80 8899 1! <BLF /PAGE> 


; e: 273 code + 0 data bytes 
3; Run Time: 00:24.9 

3; Elapsed Time: 00:37.1 

3 Lines/CPU Min: 171 

3 Lexemes/CPU-Min: 8874 
; Memory Used: 154 pages 
3; Compication Complete 


VOs=000 *  EDISSRD-JOUTAT. S"read etext record tron the Set 93:50:26 UeDT!SredReasourex:ec1: ee aa 
: 308 O30t } END ! of module EDTSREAJOUTEX 

; 902 0 ELUDOM 

: PSECT SUMMARY 

; Name Bytes Attributes 

; EDTSCODE 273 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

: Library Statistics 

3 evoscens GyEe0(§ coossce= Pages Processing 

; File Total Loaded Percent Mapped Time 

~B25S80uag6: CEDT- smc JPseCT «(32:1 at ; 50 80:00:1 

; 7$255$puA BEeySi IOISTARLET L395 9776 j 0 581 00:04.1 

H COMMAND QUALIFIERS 

; Ferrey ne SOLD SMET EAL GPT MELE) /UOTOACESACE AL 101, £96: REAJOUTER/ORI “OBIS 1REAJOUTER MSRC$:REAJOUTEX.BLI/UPDATE=(ENHS:R 
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